function [R,C,Sens]=celdas_rchhp(Wp,Qp,G,Wz,seteados)
    %Setea R1 y C1
    R=ones(2,1);
    C=ones(3,1);
    
    R(1)=seteados(1);
    C(1)=seteados(2);
    
    C(2) = 1/G*C(1);

    C(3) = 1/(Wp*R(1)*Qp)-C(1)-C(2); %%1/(wp*qp)*1/(1+1/G) > R1*C1
    R(2) = 1/(Wp^2*C(2)*C(3)*R(1));
    Sens = [SenRauchW();SenRauchQ(C);SenRauchG();zeros(1,5)];
    Sens = Sens';
end
    
function [senW]= SenRauchW()
    senW(1) = -0.5;
    senW(2) = -0.5;
    senW(3) = 0;
    senW(4) = 0.5;
    senW(5) = 0.5;
    
end
function [senG]= SenRauchG()
    senG(1) = 0;
    senG(2) = 0;
    senG(3) = 1;
    senG(4) = -1;
    senG(5) = 0;
end
function [senQ]= SenRauchQ(C)
    senQ(1) = -0.5;
    senQ(2) = 0.5;
    senQ(3) = -C(1)/(C(1)+C(2)+C(3));
    senQ(4) = 0.5-C(2)/(C(1)+C(2)+C(3));
    senQ(5) = 0.5-C(3)/(C(1)+C(2)+C(3));
end